home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt300w.zip / THPGL2.ZIP / T085.BAS < prev    next >
BASIC Source File  |  1995-05-01  |  771b  |  30 lines
  1. 10  OPEN "T085.PLT" FOR OUTPUT AS 1
  2. 20  PRINT #1,CHR$(27)+"%-1BBPIN"
  3. 30  PRINT #1,"PS7000,5000SC1,20,1,20,1SP1PU5,5"
  4. 40  PRINT "Input number of fractional decimal places in data"
  5. 50  INPUT F
  6. 60  'calculate number of fractional binary bits
  7. 70  F = F * 3.33
  8. 80  F = INT(F)
  9. 90  A = F
  10. 100 IF F>= 0 THEN F = 2*F ELSE F = 2*ABS(F)+1
  11. 110 F = 191+F
  12. 120 PRINT #1,"PE>"+CHR$(F);
  13. 130 'convert coordinate data to base 64
  14. 140 FOR J = 1 to 6
  15. 150  READ C
  16. 160  C = C * (2^A)
  17. 170  C = INT(C)
  18. 180  IF C >= 0 THEN C = 2*C ELSE C = 2*ABS(C)+1
  19. 190  WHILE C >= 64
  20. 200   PRINT #1, CHR$(63+(C MOD 64));
  21. 210   C = C\64
  22. 220  WEND
  23. 230  C = 191+C
  24. 240  PRINT #1, CHR$(C);
  25. 250 NEXT J
  26. 260 PRINT #1,";"
  27. 270 PRINT #1,"PUSP0PG;"
  28. 280 DATA 10.58,0,-5.58,10.67,-5,-10.67
  29. 290 END
  30.